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APPLE Part rf«(Ji 1-^10 1-^0 



INTRODUCTION 



ThlB docuETient ia an add^ndun to the Apple Fafical LaDguage Reference 
Manual s Mohc of the Lt^m^ de^c^lbed are feacares that have been added 
ta the gyatem since the printing of the manual- Corrections to the 
manual are also Included- 



ONE-DRIVE STARTUP 



The one-drive startup described on pages 148-150 of the Apple Pa&cal 
Language Reference Manual la not correct- Instead a one-drive startup 
works as follows ^ 

Insert the diskette narked APPLE3: la the disk drive > Close the door 
to the disk drive and turn on the computer « The message 

APPLE II 

will appear on the screen and the disk drive's IN USE light will come 
on. The disk drive emits a whirring aoundp lights up for a second or 
so with a screenful of black at-slgns C @ ) on a white background , and 
then goes black again* Next the following (message la displayed; 

INSERT BOOT DISK WITH SYSTEM, PASCAL 
ON IT, THEN PRESS RESET 

To complete the booting process, insert AFPLE0: and then press HESETi 
After about Id seconds » this nessage appears In the center of the 
screen; 

WELCOME APPLEfl, TO APPLE II PASCAL !.l 
BASED OM USCD PASCAL II. 1 
CURIENT MTE IS U-AUG-8a 

(C) APPLE COHFUTER INC* 1979, 1980 
(C) 0*C. REGENTS 1979 

The date may be different. The top of the screen will contain the 
GoTnmand level prompt line* 
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CHAINING PROGRAMS 



Vtrelon 1*1 provides a new UNIT called CHAlMSTUFF In the 
S¥STEH*LlBRARTf file* This unit allova one program Lo *'chaln to" 
Another program. Thl^ me^ns that the first program specifics the 
eecQnd one Tsy giving Its filenaiae; the system then eTcecutes the second 
program &B eoon as the first one tertilfiatos nonqalXy. 

The CHAIN STUFF unit also allows the first prograa to pass a STRING 
value to the second program* note that chl& allows almost any 
information to Ise passed « since the string can be a filename and can 
thus specify a communl cat ions file containing almost anything, 
GHAINSTUFF also allows a program to turn the syatem swapping feature 
on and off- (Sygteni swapping i$ a new feature described in the 
Addendum to the Ap p 1 e Fa s ca I Q pe ra 1 1 ng Sy & t ea Reference Ha nu a 1 * ) 

CKAINSTUFF provides these capabilities in the form of five procedures 
named SETCHAIN, SETCVAL, GETCVAL, WAPOK, and SWAPOFF* To use these 
procedures ^ the program mist have a USES declaration lamedlately after 
Clie p-rograia heading ± 

FROCRAM STARTER; 
USES CHAIKSTUPPi 



The SYSTEM* LIBRARY file mat be on line when the program Is complied 
and executed i 

THE SETCHAIN PROCEDURE 

The SETCBAIN procedure c*H has the form 

SETCHAIN ( NESTFILE ) 

vhere NIKTFILE is a STRING value {up to 23 characters >• It should be 
either the name of a cod^ file, or the name of an e^tec file with the 
prefiu EXEG/« Aa Soon aa the program terminates normally, the system 
will proceed to execute the file whose name Is the value of NEXTFILE. 

The file is exetuted exactly as if the 5t(eci*te command had been used; 
thus It is not necta^ary to supply the suffix *CODE for a code file or 
•TEXT for an exec file* 
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If the program Is halted because of any run-time error, the chaining 
does not occur* Note that this Includes a halt caused by the HALT 
procedure* However a termination caused hy the EXIT procedure Is 
cons id a red a normal termination and the chaining will work* 

THE SETCVAL PROCEDURE 

The SETCVAL procedure call has the form 

SETCVAL C MESSAGE ) 

where MESSAGE is a STRING value (up to Sfl characters)- SETCVAL stores 
the MESSAGE in a system location called CVAL, where it can be picked 
up by another prograin* 

THE GETCVAL PROCEDURE 

The GETCVAL procedure call has the form 

GETCVAL C HESSAGE ) 

where MESSAGE is s STRING variable whoae value is altered by GETCVAL. 
GETCVAL picks up the current value of CVm^L from the system and stores 
it In the HESSACE variable* Note that If CVAL has not been set by 
another program Cueing SETCVAL), then the value of CVAL Is s 
zero-^length string. Once CVAL has been set, It remains set to the 
same STRUNG value until it la changed or the system Is reinitialized 
or rabooted* 

SWAPON AND SWAPOFF 

These procedures have no parameters. They allow a pro gram to turn the 
system swapping feature on or off upon termination of the progracu 
(before chaining to another program)* 



AN EXAMPLE OF CHAINING 

Suppose that a diskette named GAMES: contains a collection of 
programs whose code fllea have the following names; 



g^me 



LANGUAGE REFERENCE ADDENDUM 3 



CHES5.C0DE 
CHECKERS, CODE 
BLASTOFF *CODE 
GOHOKU.CODE 
BKGAMMON.CODE 
BIACKJCK.CODE 
HE ARTS. CODE 
SPROUTS. CODE 

The aaer could uae th« Filer to display a list of fll^namea on the 
GAMES: dlBketCe^ then tetyrn to the Coimiiaiid level and use X(ecute to 
execute a selected program* Instead, however » you can write a 
*'f rout-end" progran to display a inenu of all the available games j the 
user chooaes one by typing a number, and the front-end program chains 
to the selected game program) 

PROCRAM FRONT; 

USES CHAINSTUFF; 

VAR GAMENUH: INTEGER; 

BEGIN 
{*Dlsplay a greeting*) 

WRITELNC 'WELCOME TO GAMES!'); 

WRITELW; 
C*D1 splay the menu*) 

MRITELNC 'SELECT A GAME FROM THE LIST BY TYPING ITS NUMBER:'); 

WRITELN; 

WRITELNC'l —CHESS'); 

WRITELN('2 — CHECKERS')! 

WRITELN('3 — BLASTOFF'); 

WRITELNC'4 -" GOHOKU'); 

WRITELS{'5 — BACKGAMMON '); 

WRITELN('6 — EUCKJACK'); 

WRITELN('7 — HEARTS'); 

WRlTELNC'a ^ SPROUTS'); 

WRITELW; 
(*Get a nuEsber from the user*) 

WRITE C 'TYPE A NUMBER FROM 1 THROUGH S, THEN PRESS RETURN; '}; 

READLN(GAHENUM); 
C*HBke sure the number Is valid*) 

WHILE NOT (GAMENUM IN [U ,81) DO BEGIN 

WRITE( 'NUMBER MUST BE FROM I THROUGH 8 — TRY AGAIN: '); 
READLN(GAMENUM) 

END I 
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(*Set chaining to filename of selected game*) 
CASE GAMENUM OF 

1 : SETCHA1N( 'GAMES : CHESS ' ) ; 

SETCHAIN( 'GAMES: CHECKERS' ) ; 
SETCHAI tJ( 'GAMES ; BLASTOFF ' ) ; 
SETCHAINC 'GAMES : GOMOKH " ) ; 
SETCHAIN< 'GAMES: BKGAMMON' ) ; 
SETCHAI N ( ' GAME S : BLACOCK ' ) ; 
SETCHAI N( 'GAMES : HEARTS ' ) ; 
SETCHAINC 'GAMES : SPROUTS ' ) 



2; 

ki 
3: 
6: 

7: 

END 

E^n>* 



There are several advantages to thlSi For one thing, the GAMES: 
diskette loay have many other files besides the actual game programs, 
and this could be confusing to the uaer. For another, the FRONT 
progtiim coenu gives full and correct natnee for the games, since It is 
not limited to 5-character names; thos it lists BACKGAi^ON Instead of 
BKGAMMON^ 

Many game programs aak the user to tjpa In her name^ so It can he used 
In messages and prorapta from the program* You could also have the 
FRONT program get the user's name and pass It to the selected game 
program* To do this, the FRONT program can declare a STRING variable, 
NAME, and then Include the following lines either Juat before or Just 
after the CASE statement; 

(*Get user's name and store it in CVAL* ) 
WRITE ('TYPE YOUR NAME, PLEASE: '); 
REA1>LN(NAME); 
SETCVALCNAME) 

Now a game program that uses the uaer's name can obtain It by having 
Its own STRING variable named (for example) UNAME, and then calllTig 
GETCVAL: 

GETCVAL( UNAME) 

Incidentally, If the FRONT program's codefile Is placed on the boot 
diskette and given the name SYSTEM* STARTUP, the FRONT program will be 
run automatically as soon aa the system is a tar ted < 
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THE *V*' OPTION 



Whefl & procedure or function has a VAR paraniecer of type STKINC, the 
actual parameter In each call to the procedure or function Is checked 
by the Cotnpller to make sure that lt$ tnaxltQum length Is not leaa thau 
the maatlonm length of the formal parameter. In the previous version 
of the Compiler^ there liss no auch checking i 

Thia checking la controlled by the V option: 

Default value: V+ 

t*SV+*) TUrna checking on* 

(*SV-*) TurriB checking off. 

The U- option also turna this checking feature off- Note that If 
checking 13 off and the maximum length of the actual parameter Is less 
than the maxlnium length of the formal parameter, It Is poaalMe for 
the procedure or function to alter bytes of data that are beyond the 
end of the actual parameter variable. This does not cause a run^tlme 
error, but does causae unpredictable result s# 



THE "SWAPPING" OPTION 

With the S+ option of the Compiler, the extra apace available for 
symbol- table storage is about 530^(1 worda (compared to about 3900 In 
the previous version)* Going from S+ to S++ glvee about 1500 words 
more- 



STRINGS 



The manual for Version 1*1 statea (on page 9) that one string is 
"greater than" another if it would come first ±u an alphabetic list of 
atrings. This la backwards: It should state that one string is ' "leae 
than" another if it would come first in an alphabetic list of 
strings* 
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TURTLE6RAPHICS 



The system id. 11 automatically return to text mode if a program 
term! nates While In graphics mode* This applies to both normal 
termination and to a halt caused by a xT3n-tlme errors 

Also, the manual erroneously states that the TURTLEGRAPHICS procedurel 
will accept REAL parameters for X,Y coordinates, and convert them to 
INTEGER values- Actually, X,Y coordinates are parameter^ of type 
INt£GER and if a ElEAL value is supplied an error results* 



ERROR MESSAGES 



The following new compiler error messages have been added: 

175: Actual parameter max string length < var formal max 
length 



408: (*SS+*) Needed to compile units 



MEMORY SPAOE FOR COMPILER 

- 

flhen campiliog a very large program, It is possible for the compiler 
to run out of memory space. There are several remedies to try when 
thia happens! 

Uae the coramaod-level swapping option to get 1100 words of additional 
^ry space* 



Uae the compiler swapping option C*SS4^*> or If necessary, (*§&++*). 

If the program uses ^'include'* files, u&e the Flier's H(ake command to 
create a 4-block file named SYSTEM.SWAPDISK on the same diskette that 
contains the Compiler. This allows e segment of the compiler to be 
swapped out onto the diskette before the operating system segment that 
opens files Is swapped in* 

With include fileai It also helps to have the (*SI filename*) option 
In the declaration section of a procedure (bef ore the BEGIN of the 
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procedure body)i This otily helps If the cotnpllet svapplng option is 
on ftfid there U a SYSTEM. SWAPDISK file- In Che declaration section of 
a procedure 1b where the largest section of the compiler can be 
swapped out to make roon for the operating system s^gincnt that opens 
files* 



FILE SPACE FOR COMPILER 

In Version 1.1, uhen the code file Is autoiaattcally sent to the 
workfUe the default slaie for the file ie [*]* In sll other cases , 
the default elite le [^1, which means that the code file will be 
allocated all of the largeat space available on the diskette that It 
Is sent to- If there Is only one available space on the diskette, the 
code file takes all of It* 

Thla can cause problems If the code file la on the sanie diskette used 

for the Hating file* The Compiler will fail if It tries to create a 

listing file and the code file has taken all the available space on 
the specified diskette* 

If you run Into these problems, specify a different diskette for the 
code file or the listing flle» or specify a definite length for the 
code file that vlll leave enough room for other required files. 



\ 



many segments. Whenever a program is compiled, the Compiler and 
Linker create the following segments in the code filet 

- Each SEGMENT procedure or function be cogues a segment in the 
code file* 

- Each Regular UNIT that the program uses becomes a segment in 
the code file* 

- The program Itself becomes a segment in the code file. This 
Includes the program^ s non-SEGHENT procedures and 
functions. 

Similarly p whenever a Regular UNIT is compiled, the result la a code 
segment for the UNIT Itself, plua an additional segment for each 
Regular UWIT that la used within the UNIT being compiled, (Note that 
SEGMENT procedures and functions are not allowed inside UNITs*> 

When an Intrinsic UNIT la complledi It produces a code segment, and 
may produce a data segment as well* (Note that an Intrinsic UNIT 
cannot USE a Regular UNIT,) 

Note that segments do not nest — every segment is just one aegment 
and does not contain any other segments. For example, If a SEGMENT 
procedure contains another SEGMENT procedure, the result is two 
distinct code segments* 



PROGRAM SEGMENTATION 



The information in this section la not neeided for simple programa, but 
can he crucial for programs that are large or complex* This section 
supplements the information In Chapters 4 and 5 of the Apple Pascal 
Language Reference Manual * It alao describes a new Compiler opt ion » 
the "Next Segment" option^ which le not described In the manual* 

To make the most efficient use of the memory space available for 
program code and data* programs can be divided into segnienta- This 
section glvea essential Information on how the Pascal System 
implements Segmentation. 

SEGMENTS 

A segment Is code that can be loaded Into memory and executed^ without 
any other code necesaarlly being In memory at the same time- Every 
program consists of at least one segment » and some programs consist of 
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THE SEGMENT DICTIONARY 

Every code file (Including library files) contains information called 
a segment dictionary * This contains an entry for each segment In the 
code file- the entry has all the information Che ayatem needs to load 
and ei^ecute the segment. 

The segment dictionary has slots foe 16 entrlea* Therefore, one code 
file can contain at moat 16 segments* In the case of a program, this 
Implies one segment for the program itself, one for each SEGMEffT 
procedure or fnnctlon^ and one fof each Regular UNIT used by the 
program. 

Note that Intrinsic UNITa used by a program do not require entries in 
the segment dictionary of the programa 's code file* This is because an 
Intrinsic UNITES code segment is never in the program's code file ■ — 
it la in a library file, and appears in the library file's segment 
dictionary* 
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Therefore a prog ran can have a maxlmuiiq of 16 segctkcncsi net counting 
aegment? ttom IntrlnBie tJNITs. Counting segments ttQm Intrinsic 
IJNITs, a program can have yp to 2b segEflents &a explained below* 

THE RUN-TIME SEGMENT TABLE 

When a program is executed » the Pascal Interpreter usee s aegment 
table which contalna an entty for each segment that is used In 
e^eecutlng the pro gram. This tahle thue contains the Eollowltig 
entries: 

* fintrlee for 6 segments that the system uBes i^en e^eciitlng & 
user program 

- An entry for each segment In the aegiiient dictionary of the 
program's code file 

- An entry for each Intrinsic [TNIT segment Cboth data and code 
aegmenta)* 

The segment table has slots for up to 32 entries. Since the system 
uses 6 J this means that a program can have up to 26 segments 
altogethet. Remember that only 16 csn be In the program's code filej 
any excess over 16 omst be Intrinsic ITNIT segments* 

SEGMENT NUMBERS 

Every segEuent has a segment number in the range (l<*3i« At run time, 
no two segments in the segiflent table can have the aame number, since 
the numbers are used to index the table* A segment number is assigned 
to a program segment when the Begment^e entry Is placed in the code 
file's 8<?gment dictionary (before run time)* Numbers are assigned as 
follow? ■ 

- The program itself is Segment !• 

- The segments uaed by the system ate (I and 2..&< 

- The segment number of an Intrinsic UNIT segmeut ts 
determined by the UNIT's heading, irtien the Intrinsic UKIT Is 
compiled* (These numbers can be found by examining the 
segment dictionary of the SYSTEM ^L IB RAKY file with the 
LIBMAP utility programp) 

- The segment numbers of Regular UNIT segakcnta and of SEGMENT 
procedures and functions ate automatically assigned by the 
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system; they begin at 7 and ascend « Mnte that after a 
Regular UNIT la linked Into a programp it may not have the 
same segtaent number shown for it in the library's segment 
dictionary when the library is examined with LIBMAP. 

To summarize the above i the segment numbers of the program Itself, the 
segments used by the system , and any Intrinsic UNITs used by the 
program are fixed before the program Is compiled; the segment numbers 
of Regular USITs and of SKGKEKT procedures and functions are not 
fixed, and are assigned as the program Is compHed and linked, in 
ascending sequence beginning with 7. 

Normally p the only time you need to specify segment numbers Is In 
writing an Intrinsic UNIT. You should choose segment numbers that 
will not conflict with any of the fixed numbers S*-6 or with any other 
Intrinalc UNIT that iright be used In the same program as the UNIT you 
are writing. 

Intrinalc UNIT aegment numbers should also avoid conflict with numbers 
that might he assigned automatically tn Regular UNITs and SEGMENT 
procedures- Houeverj when unavoidable conflicts arise there is a 
solution: the new version of the Compiler has a "Next Segment" option 
which can specify the next automatically assigned segment number* 
This is e^cplalned belov, 

THE "NEXT SEGMENT" OPTION 

This is a new Compiler option u^ich allowa you to specify the segment 
number of the next Regular UNIT, SEGMEfTT procedure, or SEGMENT 
function encountered by the Compiler* By default j the segiaent number 
Is assigned automatically as described above, 

(*$WS num*) Sets the next segment number to num, where 
num is an Integer In the range 1 . i 30. 

The NS option la ignored if It precedes the program heading; this 
means that It cannot be used to specify the segment number of the 
program Itself. 

The NS option will only work if the specified number is greater than 
the "default" number that would be automatically assigned. If the 
number specified in the NS option la less than or equal to the default 
segment number, the option is Ignored i Also, the NS option will not 
work If the specified number is greater than 33 {segment fiumber 3i can 
only be used for an Intrinsic UNIT)* 
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For example, suppooe that yoy want to uae aa Intrinsic UNIT named 

ZEBRAp vhoiie code segioent number is 7 and whose data segifient nunber 1» 

8. (Normally, auch nuinberg fibould be avoided In writing Intrinsic 

UNITh.) Your program alao containa a SEGMENT procedure: 

PROGRAM ELEPHANT J 

USES ZEBRA; 

p- ■ ■ 

SEfflCENT PROCEDURE HORSE; 



The Compiler will automatically compile the HORSE procedure as segment 
number 7, and when you Cry to execute the program cbe Interpreter will 
halt with an error cnefiaage because the prograEH baa two different 
segments with the number 7. There are two remedies i recompile ZEBRA 
with different segment numbera (if you have the source for ZEBRA) or 
use the N3 option in your program: 



PROGRAM ELEPHANT; 
USES ZEBRA; 

(*$NS 9*) 

SEGMENT PROCEDURE HORSE; 



Now HORSE will become segment f instead of segment 7, and the conflict 
is avoided. 

LOADING OF SEGMENT PROCEDURES AND FUNCTIONS 

Normally, the code of a SEGMENT procedure or function Is in nieraory 
only while it is active; that la, It is loaded from diskette each time 
the procedure or function is called, and unloaded as soon as it 
flalshes executing. The following program illuat rates tblai 

PROGRAM ONE; <*Segment ONE is always In memory.*) 



SEGMENT PROCEDURE ALPHA; {*In memory only When active^*) 
BEGIN 



END; 



42 LANGUAGE REFERENCE ADDENDUM 



SEGHEffT PROCEDtME BRAVO j C*In memory only when active.*) 
3EGMBKT PROCEDURE CHARLIE; (*In memory only when active-*) 
BEGIW C*Body of CHAKLIE*) 

ALPHA; (*Hheo this 1$ executed, the segments in 

memory are ONE, ALPHA, BRAVO, and CHARLIE.*) 
» . « 
END; 
BEGIN (*Body of BRAVO*) 

■* * m 

CHARLIE; (*When this atsrts executing, the segments in 

niemory are ONE, BRAVO, and CHARLIE**) 
ALPHA; (*Wben this is eitecuted, the segments in 
memory are ONE^ BRAVO, and ALPHA.*) 

* i i 

ESDj 

BEGIN (*Body of ONE*) 
« » » 
ALPHA; (*Vhen this Is e^tecotedi the f^egnients In 

memory are ONE and ALPHA.*) 
BRAVO i (*Wben this starts executing, the segments in 

memory are ONE and BRAVO**) 
» . « 
END, 

The ^^sldent'* opcior^ can be used to alter thla, as explained below. 

LOADING OF UNIT SEGMENTS 

Normally, all segitienta of UNITs used by a program are loaded 
automatical. ly before the program, begins executing, and remain in 
memory throufihout program eicecutlon* For example, consider the 
following program where DELTA and GAMMA are two UNITs, either Regular 
or Intrinsic: 



PROGRAM TWO 

USES DELTA, GAMMA; 



BEGIN 

i * 1 

END. 



Throughout program execution, the segments in memory are WO^ DELTA^ 
and GAHHA* This can be altered bv the "Noload" not ion. as eico^ained 



and GAHHA* 
below« 



This can be altered by the "Noload" option, as explained 
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THE "NOLOAD" OPTION 

The "Hoload" option, (*$N+*)j Is described In Chapter 4 of the Apple 
Fflflcal Langua&e Reference Manual ; this aecclon explaine iCa usage^ 

The (*$K+*) option in placed at the beginning of the main prograi!! body 
(after the BEGIN)* It causes all UNIT Begioents to be handled In the 
same way as SEGMENT procedures ^ during program execution, With this 
option a UNIT Begment ifi In memory only when something In its 
INTERFACE part la referenced by the progtam^ 

The (*$N+*) option doea not prevent the initialization part of a UNIT 
from being loaded and ajtecLited before prograEn execution; but after 
loitiallzatlon the UNIT segment is unloaded until It Is activated ■ 

Conaid^r the following program , ^ere UUGEPRGC Is a large procedure 
and BIGUNIT is a large UTfIT, The ay^teiq does not have enough memory 
to hold HUGEPROC and BIGUNIT at the same tlm^, along with the program 
Itself. 

PROGRAM TEIREE; 
USES BIGUWITj 

SEGMENT PROCEDURE HUGEPROC; 
BEGIN 



BEGIN 

(*$N+*> (*Keepa BIGUNIT out of utmory until needed**) 
HUGEPROC J 



CALCULATE; (*A procedure in BIGUNIT*) 

HUGEPROC 
END. 



First HUGEPROC Is called; BIGUNIT is not In memory betauae of the 
(*$N+*) option. When CALCULATE is called, HUGEPRChC Is not In nKmory 
alnce it la a SEGMENT procedure. As soon as no part of BIGUNIT is 
active c It Is again swapped out of memory, and HUGEPROC tan be called 
again » 
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THE "RESIDENT" OPTION 

The ^'Resident" option Is described in Chapter 4 of the Apple Pascal 
Language Reference Manual ; this section explains its usage. 

The "Resident" option ia placed at the beginning of the body of a 
procedure or function (after the BEGIN). It altera the handling of 
segments that would otherwise be in memory only when active: that is, 
SEGMENT procedures and functioriB, and UNITe under the "No load'* 
option. When such a segment Is named in the "Resident" option, it Is 
ImiDed lately loaded into memory and rensaina there ap long as the 
procedure or function containing the "Resident" option is active* For 
eKample} consider the following progratni 

PROGRAM FOUR; 
USES BIGUNIT; 

SEGMENT PROCEDURE HU(^PROC; 
BEGIN 

i i ■ 

END; 

PROCEDURE CALLHUGEPROCj 

VAR I: INTEGER; 
BEGIN 

FOR I:-l TO im DO HUGEPROC 

PROCEnURE CALLCALCULATE; 
VAR I: INTEGER; 
BEGIN 

FOR U'l TO 100 DO CALCULATE (*A procedure In BIGUNIT*) 
END; 

BEGIN 

(*$N+*J (*KeepB BIGUNIT out of nKtnoi^ until needed.*) 
HUGEPROC; 

■ i i 

CALCULATE 1 

* ■ ■ 
CALLHUGEPROC; 

CALLCALGULATE 
END. 
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This resembles the previous example, but tbe CALLHUCEPROC and 
CALLGALGUIATE procedures are new* As written, thei^e two procedures 
hive a problem; since HUGEPROC Is a SEGMENT procedure. It will Ise 
swapped in from diskette IM times when GALLHUGEPROC ej^ecutes, and 
because of the (*5K+*) option in the main program bod/, BIGKNIT will 
be svapped In 100 times when GALLCALCULATE executes. This is 
obviously undesirable, and it can be prevented by using the "Resident" 
option in each of these procedures: 

PROCEDURE GALLHUGEFROCi 
VAR 1; INTEGER- 
BEGIN 
(*$R HUGEPROC*) 

FOR 1:-1 TO LfiS0 DO HUGEPROC 
END; 

PROCEDURE CALLCALCUUTE; 
VAR I: INTEJSERj 

BtQin 

C*SR BIGUNIT*) 

FOR X;-l TO 100 DO CALCULATE C*A proced^jre In BIGUNIT*) 
END; 

Now inJ{;E?ROC will be kept In tieinory as long as CALLHUGEPROC Is active, 
and BIGUNIT will be kept In meinory as long as CALIXALCULATE la 
ftctlve* 

Finally, note that the '^sldent" option can be applied to more than 
one segmeiiE: , by separating the names of segments with commas as in the 
following example: 

C*$R ALraA,BETA,GAmA*) 

where ALPHA, BETA, and GAMMA are names of segiients (UNITb, SECTIENT 
procedures, or SEQUENT functions)* The option shown would make all 
three segments resident In the procedure containing the option* 
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